This is METAFONT, WAITS Version 0.91 (preloaded base=plain 85.7.9)  9 JUL 1985 18:11
**\mode=imagen;input ztest
(ZTEST.MF[CM,DEK] (CMBASE.MF[CM,DEK]) (ZZZZZZ.MF[CM,DEK]) (TEST.MF[CM,DEK]
{tracingedges:=2}
{tracingtitles:=1}
{tracingequations:=1}
{tracingcapsules:=1}
{tracingspecs:=1}
{tracingpens:=1}
{tracingchoices:=1}
{tracingstats:=2}
{tracingoutput:=1}
{tracingmacros:=3}

filldraw<expr>->fill.counterclockwise(EXPR0)withpen.currentpen

stroke<text>->begingroup.forsuffixes.e=l,r:path_.e:=(TEXT2);endfor.if.cycle.pat
h_.l:errmessage"Beware: `stroke' isn't intended for cycles";fi.path_.l--reverse
.path_.r--cycle.endgroup
(SUFFIX0)<-
(SUFFIX1)<-stroke
(TEXT2)<-z5e{left}...z6e{up}..{2(x7-x6),y7-y6}z7e
{begingroup}
{forsuffixes}
{loop value=l}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5l
{begingroup}
{endgroup}

...->..tension.atleast1..

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6l
{begingroup}
{endgroup}
{(16.49992)-(14.50008)}
{(2)*(1.99985)}
{(13.5)-(-3)}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7l
{begingroup}
{endgroup}
Path at line 14, before choices:
(14.5,-5.49986){-4096,0}..tension atleast1
 ..{0,4096}(14.5,-3){0,4096}
 ..{964.94814,3980.71487}(16.5,13.5)

Path at line 14, after choices:
(14.5,-5.49986)..controls (14.5,-5.49986) and (14.5,-3.98448)
 ..(14.5,-3)..controls (14.5,2.56001) and (15.19022,8.09671)
 ..(16.5,13.5)

{path_.l:=path}
{[repeat the loop]}
{loop value=r}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-5r
{begingroup}
{endgroup}

...->..tension.atleast1..

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-6r
{begingroup}
{endgroup}
{(16.49992)-(14.50008)}
{(2)*(1.99985)}
{(13.5)-(-3)}

z@#->begingroup(x(SUFFIX2),y(SUFFIX2))endgroup
(SUFFIX0)<-
(SUFFIX1)<-z
(SUFFIX2)<-7r
{begingroup}
{endgroup}
Path at line 14, before choices:
(14.5,-5.50002){-4096,0}..tension atleast1
 ..{0,4096}(14.5,-3){0,4096}
 ..{964.94814,3980.71487}(16.49985,13.5)

Path at line 14, after choices:
(14.5,-5.50002)..controls (14.5,-5.50002) and (14.5,-3.98454)
 ..(14.5,-3)..controls (14.5,2.56) and (15.19006,8.09671)
 ..(16.49985,13.5)

{path_.r:=path}
{[repeat the loop]}
{if}
{cycle(path)}
{false}

--->{curl1}..{curl1}

--->{curl1}..{curl1}
{reverse(path)}
Path at line 14, before choices:
(14.5,-5.49986)..controls (14.5,-5.49986) and (14.5,-3.98448)
 ..(14.5,-3)..controls (14.5,2.56001) and (15.19022,8.09671)
 ..(16.5,13.5){curl 1}
 ..{curl 1}(16.49985,13.5)..controls (15.19006,8.09671) and (14.5,2.56)
 ..(14.5,-3)..controls (14.5,-3.98454) and (14.5,-5.50002)
 ..(14.5,-5.50002){curl 1}
 ..{curl 1}cycle

Path at line 14, after choices:
(14.5,-5.49986)..controls (14.5,-5.49986) and (14.5,-3.98448)
 ..(14.5,-3)..controls (14.5,2.56001) and (15.19022,8.09671)
 ..(16.5,13.5)..controls (16.49995,13.5) and (16.4999,13.5)
 ..(16.49985,13.5)..controls (15.19006,8.09671) and (14.5,2.56)
 ..(14.5,-3)..controls (14.5,-3.98454) and (14.5,-5.50002)
 ..(14.5,-5.50002)..controls (14.5,-5.49997) and (14.5,-5.49991)
 ..cycle

{endgroup}
(EXPR0)<-path

fill<expr>->addto_currentpicture.contour↑(EXPR0)

counterclockwise<primary>->begingroup.interim.autorounding:=0;if.turningnumber(
EXPR2)<=0:reverse.fi(EXPR2)endgroup
(SUFFIX0)<-
(SUFFIX1)<-counterclockwise
(EXPR2)<-path
{begingroup}
{interim}
{autorounding:=0}
{if}
{turningnumber(path)}
{(1)<=(0)}
{false}
{endgroup}
(EXPR0)<-path

addto_currentpicture->addto.currentpicture
{addto}

↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0.25,0,1))}
{endgroup}
Path at line 14, before subdivision into octants:
(13.12503,-5.49986)..controls (13.12503,-5.49986) and (13.50388,-3.98448)
 ..(13.75,-3)..controls (15.14,2.56001) and (17.2144,8.09671)
 ..(19.875,13.5)..controls (19.87495,13.5) and (19.8749,13.5)
 ..(19.87485,13.5)..controls (17.21425,8.09671) and (15.14,2.56)
 ..(13.75,-3)..controls (13.50386,-3.98454) and (13.125,-5.50002)
 ..(13.125,-5.50002)..controls (13.125,-5.49997) and (13.12502,-5.49991)
 ..cycle

Cycle spec at line 14, after subdivision and autorounding:
(19.5,13.5) % beginning in octant `Nw'
% entering octant `Wn'
% entering octant `Ws'
   ..controls (19.49995,13.5) and (19.49991,13.5)
 ..(19.49986,13.5) % segment 2
% entering octant `Sw'
   ..controls (17.13489,8.09671) and (15.2911,2.56001)
 ..(14.05556,-2.99998) % segment 3
   ..controls (13.83676,-3.98453) and (13.5,-5.5)
 ..(13.5,-5.5) % segment 4
% entering octant `Ws'
% entering octant `Wn'
% entering octant `Nw'
% entering octant `Ne'
   ..controls (13.5,-5.49995) and (13.50002,-5.4999)
 ..(13.50003,-5.49985) % segment 5
   ..controls (13.50003,-5.49985) and (13.83678,-3.98447)
 ..(14.05556,-2.99998) % segment 0
   ..controls (15.2911,2.56003) and (17.13503,8.09671)
 ..(19.5,13.5) % segment 1
 & cycle

> 0 Ne 1 2 (Nw Wn) Ws 3 Sw 4 5 (Ws Wn Nw) Ne 0
! Strange path (turning number is zero).
<to be read again> 
                   ;
p.4,l.14 ....z6e{up}..{2(x7-x6),y7-y6}z7e;
                                           % stem
? e
 
Here is how much of METAFONT's memory you used:
 242 strings out of 761
 2057 string characters out of 9622
 18232 words of memory out of 60001
 713 symbolic tokens out of 2100
 7i,66n,4r,10p,173b stack positions out of 30i,100n,300r,150p,500b
Font metrics written on ZTEST.TFM[CM,DEK]